home *** CD-ROM | disk | FTP | other *** search
/ Word Play Farm / Word Play Farm.iso / pc / wordplay.exe / wordplay.DXR / 00001.ls next >
Encoding:
Text File  |  1996-06-05  |  384 b   |  14 lines
  1. on CDPATH theFileName
  2.   repeat with i = 67 to 90
  3.     set drive to numToChar(i)
  4.     set thispath to string(drive & ":\" & theFileName)
  5.     set myFile to FileIO(mnew, "READ", thispath)
  6.     if objectp(myFile) then
  7.       myFile(mdispose)
  8.       return drive & ":"
  9.       exit
  10.     end if
  11.   end repeat
  12.   alert("Please check that" && QUOTE & theFileName & QUOTE && "is on your CD drive.")
  13. end
  14.